home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / prog_bas / easynet.zip / DEMO.ZIP / TASK.FRM < prev    next >
Text File  |  1995-12-26  |  4KB  |  126 lines
  1. VERSION 4.00
  2. Begin VB.Form frmTask 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "Actor"
  7.    ClientHeight    =   1710
  8.    ClientLeft      =   2115
  9.    ClientTop       =   2385
  10.    ClientWidth     =   5820
  11.    BeginProperty Font 
  12.       name            =   "MS Sans Serif"
  13.       charset         =   1
  14.       weight          =   700
  15.       size            =   8.25
  16.       underline       =   0   'False
  17.       italic          =   0   'False
  18.       strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H80000008&
  21.    Height          =   2115
  22.    Left            =   2055
  23.    LinkTopic       =   "Form1"
  24.    ScaleHeight     =   1710
  25.    ScaleWidth      =   5820
  26.    Top             =   2040
  27.    Width           =   5940
  28.    Begin VB.TextBox Text2 
  29.       Appearance      =   0  'Flat
  30.       Height          =   375
  31.       Left            =   1650
  32.       TabIndex        =   1
  33.       Top             =   780
  34.       Width           =   2535
  35.    End
  36.    Begin VB.CommandButton Command2 
  37.       Appearance      =   0  'Flat
  38.       BackColor       =   &H80000005&
  39.       Caption         =   "&Cancel"
  40.       Height          =   405
  41.       Left            =   4560
  42.       TabIndex        =   3
  43.       Top             =   750
  44.       Width           =   955
  45.    End
  46.    Begin VB.CommandButton Command1 
  47.       Appearance      =   0  'Flat
  48.       BackColor       =   &H80000005&
  49.       Caption         =   "&Ok"
  50.       Default         =   -1  'True
  51.       Height          =   405
  52.       Left            =   4560
  53.       TabIndex        =   2
  54.       Top             =   300
  55.       Width           =   955
  56.    End
  57.    Begin VB.TextBox Text1 
  58.       Appearance      =   0  'Flat
  59.       Height          =   375
  60.       Left            =   1650
  61.       TabIndex        =   0
  62.       Top             =   300
  63.       Width           =   2535
  64.    End
  65.    Begin VB.Label Label2 
  66.       Appearance      =   0  'Flat
  67.       BackColor       =   &H00C0C0C0&
  68.       Caption         =   "Role name:"
  69.       BeginProperty Font 
  70.          name            =   "MS Sans Serif"
  71.          charset         =   0
  72.          weight          =   400
  73.          size            =   9.75
  74.          underline       =   0   'False
  75.          italic          =   0   'False
  76.          strikethrough   =   0   'False
  77.       EndProperty
  78.       ForeColor       =   &H80000008&
  79.       Height          =   345
  80.       Left            =   240
  81.       TabIndex        =   5
  82.       Top             =   840
  83.       Width           =   1215
  84.    End
  85.    Begin VB.Label Label1 
  86.       Appearance      =   0  'Flat
  87.       BackColor       =   &H00C0C0C0&
  88.       Caption         =   "Actor name:"
  89.       BeginProperty Font 
  90.          name            =   "MS Sans Serif"
  91.          charset         =   0
  92.          weight          =   400
  93.          size            =   9.75
  94.          underline       =   0   'False
  95.          italic          =   0   'False
  96.          strikethrough   =   0   'False
  97.       EndProperty
  98.       ForeColor       =   &H80000008&
  99.       Height          =   315
  100.       Left            =   240
  101.       TabIndex        =   4
  102.       Top             =   360
  103.       Width           =   1245
  104.    End
  105. End
  106. Attribute VB_Name = "frmTask"
  107. Attribute VB_Creatable = False
  108. Attribute VB_Exposed = False
  109. Option Explicit
  110.  
  111. Private Sub Command1_Click()
  112.   Actor = Text1.Text
  113.   Role = Text2.Text
  114.   Unload Me
  115. End Sub
  116.  
  117. Private Sub Command2_Click()
  118.   Unload Me
  119. End Sub
  120.  
  121. Private Sub Form_Load()
  122.   Text1.Text = Actor
  123.   Text2.Text = Role
  124. End Sub
  125.  
  126.